ANnnnno 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RR RRR 
RRR RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR =RRR 

RRR = RRR 

RRR = RRR 

RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 


AHA tt tt Ht tt SH 
a | LLL) 
ee ee ee Le) 


L 
LLLLLLLLLLLELLLL 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F ILE**1D*BASENDDEF 


Aa ke 

ha ta 

= ke tk 
"7 he 
“ue Ak ta 
=" ke te 
we he le 
ke we 


ka tk kk MA kA ha kk kt ha ta ke 
eS a ne 


Aaaq0BbAaaAaaaa 
anaaaoacaaacaa 
aa +4 
aa as 
aa aa 
aa aa 
aa aa 
aa aa 
SnQ0GGAGRARRaaRaaaRaR 
2SQ2000000000008R 
aaa ovovoloyloyoyr=) 
aanaoaaoaaaaa 
aa aa 
aa aa 
aa aa 
aa aa 
oo aa 
oa aa 
aooooaonoaaoaaaaa 
aSoo0GaGoCoGCaaaakaao 
22 222222222222 
2222222222 2222 

22 
Oe 
== 
2222 2222222222 
22222222222222 
ww wu 
wus wu 
wu See wu 
wou kad beard 
wu sus us 
wu thus Leeteyt 
wus atta Lewtead 
wou aos ws 


nn YNwWn 
nn YANN 
nn nn wn 
nw nn wn 
ww nn mw 
nn mw “wn 
nn “vw “wn 
nw mn ww 
YNNM nn 
nnn nn 


222222222222 


i 


222222222222 
Saao Sane 


LLLLLLLLLLE 
LLLLLLELLLL 


SaaS 


BASSEND_DEF 

F 1 
He 
is 4 

; 5 

ts. 
3 3 

> 610 

ee 

; ig 

; 14 
; g 13 
: 13 091? 
a: i 
: 20 $0 0 
: 1 +4 1 
; 5 o2 § 
3 o 024 
; & 0056 
> 2? 00 § 
; 8 0028 
5 9 0029 
3 0 0030 
: 1 8 1 
; § $038 
3 0034 
5 5 0035 
3 00 

; 3s 5038 
; 39 0039 
; 6 040 
: e 041 
Pas 
: 45 beg 
- @ 046 
: 4 04 
; 68 8 
; «649 49 
s $0 50 
ao Oo Be 
; 3g : 
3 4 054 
; 55 3 
; 3$ 0 °3 


FS 
16-Sep-19 AX-11 Bliss-32 v6.07 
eagee 138s FFi8h:8e — PAKSAT Obisges2. ve-0e76 2:1 
MODULE BASSEND_DEF ( ! 
[DENT = "1-013" i File: BASENDDEF.832 


[eeeeererereererererereeereeeterereteerereeeeeerereeeeereeeereeeeeeeeeeeeettE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
'e DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
a 
w 
1g THIS SOFTWARE IS FURNISHED UNDER A tose AND MAY BE USED AND COPIED 
is ONLY IN ACCORDANCE WITH GTME TERMS OF (SUCH LICENSE AND WITH THE 
INCLUSION THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY. OTHER s 

ie COPIES THEREOF RA Y NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY ®* 
ie TRANSFERRED. * 
& 

{THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE © 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
it CORPORATION. * 
® 

we 

e 

ty 

® 

* 


:* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i FACILITY: BASIC=PLUS-2 Frame Support 
i ABSTRACT: 


These routines set up and tear down frames for 7; ++ aad 
Frames are used for main routines, external funct 

external subroutines, internal functions (both DEFs wane DEF es) 
internal subroutines (GOSUBs) and condition handlers. 


' 

' 

‘ 

‘ 

' 

' 

' 

' 

: 

ENVIRONMENT: VAX=-11 user mode 

AUTHOR: John Sauter, CREATION DATE: 10-Oct-78 

MODIFIED BY: 

i Original. This is just a ske eleton 

: Copy code from BASSEND. JBS 07-FEB-1979 

Change stack frame prefix from BAS$ to BSF$. JBS 185 8-48 
; 
' 
t 
' 
1 
' 


~FEB-1979 
1899 templates, not the fixed 


purer any FIELD variables when goat Locos ing them. JBS 

Dea joce e ont the dynamic ali’ 

1 string templ ; es. JBS 20- 

! 1-006 - Remove edit 004-- ie Mey a will call the routine which 
eer a ield var aptes, o that the Held co god ill not have 

in the sharable | orery. JBS 0 

arrays, ‘es 09-APR-1979 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 EPSPS LI LILI IIIT TTI ITT TTT IIIT TTT r iti iitiitririritiriirririritriit 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 “MAY- 


e 
1- “$0? ~ siniterly don’t flush virtua 
1 §$ 


08 - Change OTS$S and LIB$S to STRS. 


Page 


‘pgto.se iSepeoroge 90:21:58 YACHT OLingctz vesooreg, | Page 


3 38 : 73% = Correct the calls to STRSFREE1 Dx. 185 hae 

3 1:1 ~ another correction to the callS to STRSFREE1_Dx. 

; 60 1! JBS 22-MAY- 

3 «|66F 1 ! 1-011 = Use the JSB entry point to STRSFREE1_DX. JBS 11-JUN-1979 
>. = ¢ 1 ! 1-012 = Give a better error message when an érror handler runs 
co 1! runs off the end of a function. JBS 24-JUL-1979 

; 666 1! 1013 = Call BASSSUNWIND when cutting back a GOSUB frame. 

; 63 . a JBS 03-AUG-1979 

: 4 'eo 

3 $3 1 

; 68 0068 1 !<BLF/PAGE> 


SSS 
Be Be Be Se Se Se Se Se Se Be ee SHS Se Se Se Se Se Se Se Ge Se Se Ge Fe Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Ss Se Se Se Se Se Se Se Se Se Ge Se Ge Ge ee ee 


95 


SRRUN US SaVe nara =SSSVFAFanLSSSVSSE 


eet se — g — — — — — — — —  — — —» ss +9 ss 


a ND _DEF 


1Soseo-19Re 00:31:58 


SWITCHES: 


SWITCHES ADDRESSING MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES: 


BASSINIT LINK = JSB (REGISTER = 0, REGISTER 
GLOBAL (BSFSA_MAJOR_STG = 11, BSF EA_RINOR.S 
NOPRE SERVE (8. 7, 6, 5, 4 3. 2, 1,70); 


REQUIRE "RTLIN:STRLNK'; 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSEND_DEF_R8 : NOVALUE BASSINIT_LINK; 


INCLUDE FILES: 


REQUIRE "RILIN:RILPSECT'; 
REQUIRE "RTLIN:BASFRAME® ; 
REQUIRE *RTLIN:BASINARG'; 


' 

: MACROS: 

i NONE 

1 

i EQUATED SYMBOLS: 

i NONE 

4 

i PSECTS: 

DECLARE _PSECTS (BAS); 
OWN STORAGE: 

i NONE 

a 

EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
NOVALUE 
SIRSFREE? _DKLRG : STRSJSB_GETFRE, 


1, REGISTER = 2): 
2°10, BSFSA_TEMP_STG = 9) 


String facility Linkages 


end DEF 


macros for defing psects 
Define frame structure 
Define argument List 


declare psects for BASS facility 


signals error 
Deallocate a string 


AX=11 Bliss-32 V4.0-74 
BASRTL.SRC JBASENDDEF .B 


$251 


Page 


‘stytoe 


— 
on 


kk a ot 
u 
RISSSLSAEANLSES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BASSSUNWIND : NOVALUE, 
BASSHANDLER; 


'¢ 


5 
rb-sep-1964 00:21:58 yactt BLing=2 4.02742 


! Unwind a frame 
i Marker for BASIC frame 


The following are the error codes used in this module. 


alte LITER 
-RETWITGOS : 


BASSK_ERRTRANEE : UN 


! RETURN without GOSUB 

! Program lost, sorry 

! Not implemented 

! FNEND without FUNCTION CALL 
! ERROR trap needs RESUME 


Page 


oa 
(2) 


_———__-—_-_—_—- 


‘pastgno oer i Seoet98e 00:31:58 YAKCHT OL iegcRe.Ws0=742, 


; 143 3 ’ GLOBAL ROUT INE BASSEND_DEF_R8 ( ' end DEF frame 

; (14 7 ARGLIST ! arg list for setting up the frame 
+ 164 705 1 ) : NOVALUE BASSINIT_LINK = 

: 18 FOF} tes 

; 147 ? FUNCTIONAL DESCRIPTION: 

: 1¢8 7 1! Tear down a frame for a BASIC=PLUS-2 DEF. 

; 150 711 13 ALL ay forage e is deallocated. The argument is the same 

; 1 ar as for BASSINIT _DEF_R8, for validity checking. 

; § ar FORMAL PARAMETERS: 

: 155 ig 1 ARGLIST.ra.v List of information used to set up 

3 1 71 1: rame. See BASIC-PLUS- wt Fe colon 

3 ; rg : of Generated Code for details. 

; 139 , 9 IMPLICIT INPUTS: 

; 161 ? : The frame, as set up by BASSINIT_DEF_R8. 

; 168 74 IMPLICIT OUTPUTS: 

3 165 726 NONE 

; 169 728 1 | ROUTINE VALUE: 

; 168 729 1 

in eer ee 4 

$171 7 : 1 ! COMPLETION CODES: 

: 172 733 (1 

: 17 734 13 NONE 

+ 17% 735 1/3 

; 125 , SIDE EFFECTS: 

; 178 4 . ' Deal Locates the heap storage and virtual arrays local to this 
BB oe | i keine 

: 181 742 1 

; 18¢ 243 BEGIN 

» § 745 EXTERNAL REGISTER 

: 185 74 BSFS$A_MAJOR_STG : REF BLOCK : , BYTE), 

: 1 74 SFSA“MINOR~STG : REF BLOCK (0, BYTE). 

; + 34 r BSFSA-TEMP_STG : REF VECTOR; 

i fy omy 

Wy ie roe 

; 198 is ARGLIST : REF BLOCK [0, BYTE) FIELD (BASSINIT_ARGS); ! arg List 
: 195 7 REGISTER 

.. 735 : REF BLOCK CO, BYTE) FIELD (BSFSFCD) ! pointer to FCD 
; 197 758 PREV: FMP : REF BLOCK CO, BYit.) FIELD (BSFSFCD); | previous FCD 


pastiwoocr iEoseo-t9ge 00:21:58 yanadt OLing=32 v4s0-74 


irst cut back any GOSUB frames. We wish to make the presence of 
a he GOSUB frame invisible except on traceback. 


FMP = FP; 
tas | CBSFSB_PROC_CODE] EQL BSFSK_PROC_GOSB) DO 


'¢ 


7 ; 


a0 


have a GOSUB frame, remove it. Note we do not restore any 
egisters it might have saved. 


BASSSUNWIND (. FMP); 
PREV_FMP = .FMP CBSFSA_SAVED_FP); 


carer CBSFSA_HANDLER] NEQA BASSHANDLER) 


we 
r 


77 '¢ 

!' The previous frame is not a BASIC frame. This is unreasonable 
! since GOSUBs should only be callable from inside a BASIC main 
H procedure. 


BASSSSTOP (BAS$K_RETWITGOS); 
FMP = .PREV_FMP; 
END 


mrororororrrn 
TRU SOMONE WVOSRIS AP AUIOD 


'¢ 
: Make sure this is a DEF frame. 


SDS NO 


CASE FMP CBSF$B_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 


CBSFS$K_PROC_ONER] : 
BASSSSTOP (BASSK_ERRTRANEE); 


CBSFSK_PROC_DEF] : 
BEGIN 


WOOOOOO OO CMDB BODDmMmMmmew~a~ 
=O OONOVNEWIN OO OONOUE WN OOo 


OGOOCOCSOCOSOSOSOOSOSOSSCOOCSOOOOOCOOOOOOOOOOOOOOOOOOoOO 
SS SSS 
SAN ao aA 4 
WU, 
~ 
an 


ON 


CINRANGE, OUTRANGE) : 
ioe BASS$$STOP (BAS$K_PROLOSSOR); 


ooo 


Pan 


oO 
w 


'¢ 
' Check to be sure that this is the correct exit. This shculd 


20000 00000000 
Se 


Sat et et et ee meee 
NOs =SSR SON wnN— 


Be Se Se Se Be Be Se Ss Ge Se Se Se Ge Se Be Ge Ge Se Se Se Ge Se Fe Ge Ge Fs Se Se Ge Ge Se Ge Se Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Fe Ge Ge Se Ge SH Ge 


COOOCOCOSoOOSOOoOSoOoOSS 


4 808 ! only fail if the compiler allows non-local gotos from a DEF, 

$8 B10 or the equivalent using condition handling. 

50 1 

51 \¢ If (,FMP CBSFSA_INIT_ARG) NEQA .ARGLIST) 

i 18 Pn 

54 815 i The argument Lists are not at the same address. This exit must not 
55 816 ! correspond to the entry. Signal an error. 


BASSEND_DEF 


BISA IVI OO UP APO Oo 


79 


SOOO COCOCOOOOCOOOSCOOOOOOOoOO 


FP AAN NINA NIPPON NPHNNPIPYNPNIN 


SOOWDNAOMUE WN OCONOUE WN O0OOnN 


18-50-1984 MFe ee LENSRT SAeieaseNpoer 692; 1 


BASSSSTOP (BASSK_FNEWITFUN); 
'¢ 
Deallocate any temporary string storage. 


INCR COUNTER FROM 1 TO .ARGLIST cOASh 18 NO_TST] DO 
TEMP_STG CCTCOONTER = 1)*2)); 


STRSFREE1_DX_R4 (BSFSA_ 
1+ 
Deallocate local dynamic strings. 


INCR COUNTER FROM 


1 10 ARG Ist CBAS$W_IN_NO_DST] DO 
STRSFREE1_DX_R4 (.FMP CBSFSA_STR_DESC] +” (2*ZUPVAL*(.COUNTER = 1))); 


'¢ 


i ALL done. The 'RET' instruction done by the compiled code 


: will cut back the stack, so we don't need to do it here. 


FP = hal 
RETURN 
END; 


-EXTRN 
»PSECT 


w 
~ 
“ 
oOo 


vC 


oo 


o 
o 
m 
w 
MPS MNO OVW OVYIMA SOw 
z2o0- 
om=z 
<ovU 
a 
o 
aad 


ooo oO 


COOOCOoCoCooOoooO 
oooooceo SSss 


000000006 


==900 


oc 
000000006 


006 
000000006 


"OW PWw-mowon—o& S 
oe 
zo 
o>, 
< 
pa 


——9O VON WIWW"S 
oor Mom OONMOo 
—— PUM WBOCorovmNru'! 
OOM] MDBW Ou 
oOo T0909 OO 90 — OF 

en ee 

fw ~& 

PR 

oo 


0000 BASSEND_ per R8:: 


! of BASSEND_DEF _R8 


BASSEND DEF 
\1-013\ 


BASSSSTOP, STRSFREE1_DX_R4 
BASSSUNWIND, BASSHANDLER 
BAS$K_RETWI1GOS 
BAS$K~PROLOSSOR 
BASSK— _NOTIMP, BASSK_FNEWITFUN 
BAS$K~ERRTRANEE 


-BASSCODE .NOWRT, SHR, PIC,2 


~~ 
~~ 
“7D 
zz~ 
vv 
a 

bl 

c= 

o 


wv 


BASSSUNWIND 


PREV_FMP), RO 
WBASSK k -RETWITGOS, -(SP) 
# 

Prev anne FMP 


~27(FMP), #1, #7 


—M-D—-B "wi “Dp 
PVP M—-"IBSKMHNw VO 


Pete Se Se Se Ge Se Se See Ge Ge See Se Se Be Se 


eatin RSC ARLE Wh it roe of 


3; Routine Size: 


Sete eee 
rororor 
co oD 000 


Name 
_BASSCODE 


000000006 
000000006 
50 
EC 
EE 
162 bytes, Routine 
0841 1 
bag 1 END 
0843 1 
0844 0 ELUDOM 
Bytes 


7E 00G 8F 9A O004A 5$: 
4 11 Baek 

00G 8F 9A 0005 gs: 

2 1 FB 00054 7$: 

D8 AS D1 00058 8$: 
? 006 BF 9h dove! 
Ob o FB 00065 

? fh BaeE 9$: 

56 64 78 $0090 10$ 
50 F8 A940 DE 00074 
000000006 09 1 0079 

56 30 A? £3 OOO7F 118: 
57 28 A? 3C 00084 
56 D4 Bose 
OE 13% OOO8A 

50 EO 8546 iS 0O008C 128: 
50 08 ¢ 404 
000000006 29 18 0094 

56 57 3 OOO9A 138: 
5D 55 DO 0009E 
05 OO0A1 

Base: _BASSCODE + 0000 


PSECT SUMMARY 
Attributes 
162 NOVEC,NOWRT, RD, EXE, SHR, 


COMMAND QUALIFIERS 


MOVZBL 
BRB 
MOVZBL 
CA 


LCL, 


554 
g3-4 


WAS K_PROLOSSOR, -(SP) 


WBASSK_ERRTRANEE, (SP) 
BASSSSTOP 


"1 
-46 
9$ 


(FMP), 


ARGLIST 


#BASSK Chey TFUN, -(SP) 


#1, 


REL, 


CON, 


BASSS$STOP 
R 


R, RO 
EMP_STG)CROJ, RO 
), COUNTER, 10$ 
», R7 


TRSFREE1 DX_R4 
COUNTER, “128 


PIC, ALIGN(2) 


Pe Be Ge Be Se Ge Se Se Be Ge Ge Se Se Se Ge Se Fe Se Se Se Ge Se Se Se Se Se Be Be 


BASENDDEF .832;1 (3) 


; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASENDDEF /OBJ=0BJ$:BASENDDEF MSRC$:BASENDDEF /UPDATE=(ENHS:BASENDDEF 


nN 5 
BAS TENO DEF 1o~geen13Re 99:81:82 = HONS AT Ose Seasenpocr 6$2;1 Page 5) 
) : | 
pize: é 162 code + 0 data bytes 


me: 06: 6.2 
Elapsed Time: Boor" 4 


Lines/CPU Min: 
Lexemes/CPU-Min: 2 
poner? Used: 69 pages 
Compilation Complete 


DIGITAL EQUIPMENT CORPORATION 


AH-BT13A-SE 
CONFIDENTIAL AND PROPRIETARY 


VAX/VMS_ V4.0 


02 


